home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _editors / editors / _zap / !Zap / !Run < prev    next >
Text File  |  1994-11-01  |  1KB  |  44 lines
  1. |
  2. | !Run file for Zap
  3. | (c) D.H.Symes 1991-1994
  4. | -- reconstructed from dust in the atmosphere by S.H.
  5.  
  6. | Set up directory paths and load sprites
  7. Set Zap$Dir <Obey$Dir>
  8. Set Zap$3rdParty <Zap$Dir>.3rdParty
  9. Iconsprites <Zap$Dir>.!Sprites
  10.  
  11. | Find operating system version
  12. SetEval Zap$OSVsn 300
  13. RMEnsure UtilityModule 3.10 SetEval Zap$OSVsn 200
  14.  
  15. | Claim file types and taskwindows
  16. Set TaskWindow$Server <Zap$Dir>
  17. Set Alias$TaskWindow "ZapBasic_TaskWindow "
  18. Set Alias$@RunType_FFF Run <Zap$Dir>.!Run %%*0
  19.  
  20. | Choose template file
  21. Set Zap$Templates <Zap$Dir>.Templates.Symes
  22. IF Zap$OSVsn=300 THEN Set Zap$Templates <Zap$Dir>.Templates.Ebourne
  23.  
  24. | Check Zap isn't already running
  25. Set Zap$Temp "loaded"
  26. RMEnsure Zap 0.01 SET Zap$Temp "notloaded"
  27. IF Zap$Temp="loaded" AND Zap$OSVsn=200 THEN ERROR 0 Zap is already loaded
  28. IF Zap$Temp="loaded" AND Zap$OSVsn=300 THEN %Basic -quit <Zap$Dir>.Check
  29.  
  30. | Load modules
  31. RMEnsure ColourTrans 0.51 RMLoad System:Modules.Colours
  32. RMEnsure ZapRedraw 0.20 RMLoad <Zap$Dir>.ZapRedraw
  33. RMLoad <Zap$Dir>.Zap
  34.  
  35. | Load extension modes
  36. RMLoad <Zap$Dir>.ZapBasic
  37. |RMLoad <Zap$3rdParty>.BryanS.ZapCMode
  38. |RMLoad <Zap$3rdParty>.Moore.ZapUtils
  39. RMLoad <Zap$3rdParty>.Ebourne.ZapMJE
  40. |RMLoad <Zap$3rdParty>.Wagenaar.ZapDWExt
  41. RMLoad <Zap$3rdParty>.Wagenaar.ZapSoftWra
  42.  
  43. | Start up the Zap task (loading file if need be)
  44. Zap_Desktop %0